home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / sys / InstallerNG.lha / InstallerNG / examples / sysinfo.installer < prev    next >
Text File  |  2000-03-19  |  1KB  |  50 lines
  1.  
  2. ; this needs the InstallerNG!
  3. (if @installer-ng-version
  4.  
  5.   ; if we run InstallerNG, life is easier :-)
  6.   (
  7.     (flushlibs)
  8.     (user expert)
  9.   )
  10.  
  11.   ; the old one
  12.   (user 2)
  13. )
  14.  
  15. ; go!
  16. (set @proceed-button "Great configuration"
  17.      @abort-button "What the hell am I using ?!"
  18. )
  19.  
  20. (procedure version-to-string #ver ("%ld.%ld" (/ #ver 65536) (bitand #ver 65535)))
  21.  
  22. ; some information
  23. (exit "Your configuration!\n\n\n"
  24.       "Installer version: " (version-to-string @installer-version) "\n"
  25.       "InstallerNG version: " (if @installer-ng-version (version-to-string @installer-ng-version) "No") "\n"
  26.       "\n---------------\n\n"
  27.       "CPU: " (database "CPU") "\n"
  28.       "PPC: " (database "PPC") "\n"
  29.       "FPU: " (database "FPU") "\n"
  30.       "MMU: " (database "MMU") "\n"
  31.       "\n"
  32.       "OS version: " (database "os-ver") "\n"
  33.       "\n"
  34.       ("Todays date is %s\nAnd it`s %s o`clock\n" (database "date") (database "time"))
  35.       "\n"
  36.       "free CHIP: " (database "graphics-mem") "\n"
  37.       "free FAST: " (database "fast-mem") "\n"
  38.       "free total: " (database "total-mem") "\n"
  39.       "\n"
  40.       "Chipset: " (database "chiprev") "\n"
  41.       "Graphics System: " (database "gfxsystem") "\n"
  42.       "VBlank: " (database "vblank") "\n"
  43.       "\n"
  44.       "GUI: " (database "gui")
  45.  
  46.       (quiet)
  47. )
  48.  
  49. (welcome)
  50.